www.gusucode.com > 云网互动影视系统(12套模版和资源联盟) 6.2 > 云网互动影视系统(12套模版和资源联盟) 6.2.4/免费版/Admin/Xml/FtpDate.asp

    <%Response.Charset = "GB2312"%>
<!--#include file="../../Conn.asp" -->
<!--#include file="../YWNT_TMS_inc/YWNT_TMS_Function.asp" -->
<%Call CheckLogin("Movie")
on error resume next
FtpMovieNum=Request.QueryString("Num")
if FtpMovieNum="" then
FtpMovieNum=0
end if
FtpMovieID=split(Request.QueryString("ID"),",")
FtpMovieIDNum=UBound(FtpMovieID)
if FtpMovieIDNum<>0 then
FtpMovieIDNum=FtpMovieIDNum+1
else
FtpMovieIDNum=1
end if
MovieClass=Request.QueryString("MovieClass")
MovieLines=Request.QueryString("MovieLines")
		Set Rs=Server.CreateObject(YWNT_TMS_RS)
		sql="select * from YWNT_TMS_Movie where ID="&FtpMovieID(FtpMovieNum)&" and xunlei=0 Order by ID desc"
		Rs.open sql,Conn,1,1
		YWNT_TMS_ID=RS("ID")
		YWNT_TMS_SeverID=RS("SeverID")
		YWNT_TMS_TypeID=RS("TypeID")
		YWNT_TMS_MovieName=RS("MovieName")
		YWNT_TMS_MovieActor=RS("MovieActor")
		YWNT_TMS_MovieRegion=RS("MovieRegion")
		YWNT_TMS_MoviePic=RS("MoviePic")
		YWNT_TMS_MovieContent=RS("MovieContent")
		RS.close   
      	set RS=nothing

if Request.ServerVariables("SERVER_PORT")<>80 then
WebUrl="http://"&Request.ServerVariables("SERVER_NAME")&":"&Request.ServerVariables("SERVER_PORT")
else
WebUrl="http://"&Request.ServerVariables("SERVER_NAME")
end if

if LCase(left(YWNT_TMS_MoviePic,7))<>"http://" then
YWNT_TMS_MoviePic=WebUrl&YWNT_TMS_MoviePic
end if

xml="<?xml version=""1.0"" encoding=""Utf-8"" ?>" &vbcrlf
xml=xml&"<movie_list Weburl="""&WebUrl&""">" &vbcrlf
xml=xml&"<movie id="""&YWNT_TMS_ID&""" type="""&DataContent("ClassName","YWNT_TMS_MovieClass",YWNT_TMS_TypeID)&""" playtype="""&MovieClass&""" MovieLines="""&MovieLines&""" change=""add"">" &vbcrlf
xml=xml&"<name>"&vbcrlf&Xmlzh(YWNT_TMS_MovieName)&vbcrlf&"</name>" &vbcrlf
xml=xml&"<pic>"&vbcrlf&YWNT_TMS_MoviePic&vbcrlf&"</pic>" &vbcrlf
xml=xml&"<actor>"&vbcrlf&Xmlzh(YWNT_TMS_MovieActor)&vbcrlf&"</actor>" &vbcrlf
xml=xml&"<region>"&vbcrlf&DataContent("RegionName","YWNT_TMS_MovieRegion",YWNT_TMS_MovieRegion)&vbcrlf&"</region>" &vbcrlf
xml=xml&"<description>"&vbcrlf&Xmlzh(YWNT_TMS_MovieContent)&vbcrlf&"</description>" &vbcrlf
xml=xml&"<file>"&vbcrlf
if MovieClass=1 then
xml=xml&FtpMovieUrl("YWNT_TMS_MovieUrl","MovieUrl",YWNT_TMS_ID,YWNT_TMS_SeverID)
else
xml=xml&FtpMovieUrl("YWNT_TMS_P2PUrl","P2PUrl",YWNT_TMS_ID,YWNT_TMS_SeverID)
end if
xml=xml&"</file>"&vbcrlf
xml=xml&"</movie>"&vbcrlf
xml=xml&"</movie_list>"&vbcrlf
dim https 
set https=server.createobject("msxml2.xmlhttp")
https.open "post","http://u.ywnt.net/response.asp",false
https.send xml
if https.readystate=4 then
	response.write Request.QueryString("ID")&"*|*"&FtpMovieNum+1&"*|*"&FtpMovieIDNum&"*|*"&MovieClass&"*|*"&MovieLines
end if

Function DataContent(Out,Table,ID)
Dim RS
Set RS = Server.CreateObject(YWNT_TMS_RS)
RS.Open ("Select "&Out&" From "&Table&" Where ID="&ID&""), Conn, 1,1
DataContent = RS(Out)
RS.Close
Set RS = Nothing
End Function

Function FtpMovieUrl(Table,RSName,ID,SeverID)
SeverUrl=DataContent("P2pUrl","YWNT_TMS_Sever",SeverID)
Set Rs = server.CreateObject(YWNT_TMS_RS)
sql="Select "&RSName&" from "&Table&" where MovieID="&ID&""
sql=sql&" order by id asc"
Rs.open sql,Conn,1,1
do while not RS.eof
IF MovieClass=1 Then
Movie_Url=Movie_Url&"<movieurl>"&vbcrlf&replace(Rs(RSName),"&","&amp;")&vbcrlf&"</movieurl>" &vbcrlf
Else
if SeverUrl<>"" and DataContent("P2PType","YWNT_TMS_Sever",SeverID)=4 then
Movie_Url=Movie_Url&"<movieurl>"&vbcrlf&SeverUrl&"|"&replace(Rs(RSName),"&","&amp;")&vbcrlf&"</movieurl>" &vbcrlf
else
Movie_Url=Movie_Url&"<movieurl>"&vbcrlf&SeverUrl&replace(Rs(RSName),"&","&amp;")&vbcrlf&"</movieurl>" &vbcrlf 
end if
End If
RS.movenext     
loop
RS.close    
set RS=nothing
FtpMovieUrl=Movie_Url
End Function

Function Xmlzh(Content)
Content=replace(Content,"<","&lt;")
Content=replace(Content,"&","&amp;")
Xmlzh=Content
End Function
%>